home *** CD-ROM | disk | FTP | other *** search
/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_xemacs.idb / usr / freeware / lib / xemacs-20.4 / lisp / ilisp / ilisp-ind.el.z / ilisp-ind.el
Encoding:
Text File  |  1998-05-21  |  1.4 KB  |  49 lines
  1. ;;; -*- Mode: Emacs-Lisp -*-
  2.  
  3. ;;; ilisp-ind.el --
  4.  
  5. ;;; This file is part of ILISP.
  6. ;;; Version: 5.8
  7. ;;;
  8. ;;; Copyright (C) 1990, 1991, 1992, 1993 Chris McConnell
  9. ;;;               1993, 1994 Ivan Vasquez
  10. ;;;               1994, 1995, 1996 Marco Antoniotti and Rick Busdiecker
  11. ;;;               1996 Marco Antoniotti and Rick Campbell
  12. ;;;
  13. ;;; Other authors' names for which this Copyright notice also holds
  14. ;;; may appear later in this file.
  15. ;;;
  16. ;;; Send mail to 'ilisp-request@naggum.no' to be included in the
  17. ;;; ILISP mailing list. 'ilisp@naggum.no' is the general ILISP
  18. ;;; mailing list were bugs and improvements are discussed.
  19. ;;;
  20. ;;; ILISP is freely redistributable under the terms found in the file
  21. ;;; COPYING.
  22.  
  23.  
  24.  
  25. ;;;
  26. ;;; ILISP indentation
  27. ;;;
  28.  
  29.  
  30. ;;;%Indentation
  31. (defun indent-line-ilisp (&optional whole-exp)
  32.   "Indent current line as Lisp code.
  33. With argument, indent any additional lines of the same expression
  34. rigidly along with this one.  This is restricted to the current buffer input."
  35.   (interactive "P")
  36.   (save-restriction
  37.     (if (memq major-mode ilisp-modes)
  38.     (narrow-to-region (save-excursion (lisp-input-start)) (point-max)))
  39.     (lisp-indent-line whole-exp)))
  40.  
  41. ;;;
  42. (defun indent-sexp-ilisp ()
  43.   "Indent each line of the list starting just after point."
  44.   (interactive)
  45.   (save-restriction
  46.     (if (memq major-mode ilisp-modes)
  47.     (narrow-to-region (save-excursion (lisp-input-start)) (point-max)))
  48.     (indent-sexp)))
  49.